MacWarehouse Macintosh Games/MacWarehouse Macintosh Games.iso/AMBER demo/ROXY/ROXY.dxr/01004_TXT-tonal ready.ls

Text File | 1996-10-18 | 701 b | 25 lines

on mouseDown
  global oStoryteller
  set camSprite to 44
  set whichKnob to getState(oStoryteller, #DoorWithScanUnit)
  set PKscan to #none
  if whichKnob = #kitchenOutside then
    set PKscan to #PkPatioScan
  end if
  if whichKnob = #bathroomInside then
    set PKscan to #PkBathroomScan
  end if
  if whichKnob = #margaretRmOutside then
    set PKscan to #Pk40sScan
  end if
  if whichKnob = #boatHouseOutside then
    set PKscan to #PkBoathouseScan
  end if
  if PKscan = #none then
    put ">•••> mouseDown( cast 'TXT-tonal ready' ):  I don't have a scan listed for this knob.."
  else
    trimState(#tonalResidueRemaining, PKscan)
  end if
  set the movieRate of sprite camSprite to 1
end